Module BreakForDemo

  Public Sub BreakIfChecked(ByVal chk As CheckBox)
    If chk.Checked Then
      System.Diagnostics.Debugger.Break()
    End If
  End Sub

  Public Sub BreakHere()
#If Debug Then
    System.Diagnostics.Debugger.Break()
#End If
  End Sub
End Module
